← Index
NYTProf Performance Profile   
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 17:10:45 2013
Reported on Tue Oct 15 17:12:50 2013

Filename(eval 1047)[/usr/share/perl/5.10/CGI.pm:869]
StatementsExecuted 10 statements in 36µs
Eval Invoked At/usr/share/perl/5.10/CGI.pm line 869
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11125µs35µsCGI::::read_from_cmdlineCGI::read_from_cmdline
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1
# spent 35µs (25+10) within CGI::read_from_cmdline which was called: # once (25µs+10µs) by CGI::init at line 832 of CGI.pm
package CGI; sub read_from_cmdline {
21600ns my($input,@words);
31200ns my($query_string);
41200ns my($subpath);
512µs if ($DEBUG && @ARGV) {
6 @words = @ARGV;
7 } elsif ($DEBUG > 1) {
8 require "shellwords.pl";
9 print STDERR "(offline mode: enter name=value pairs on standard input; press ^D or ^Z when done)\n";
10 chomp(@lines = <STDIN>); # remove newlines
11 $input = join(" ",@lines);
12 @words = &shellwords($input);
13 }
1412µs for (@words) {
1517µs13µs s/\\=/%3D/g;
# spent 3µs making 1 call to CGI::CORE:subst
1614µs1300ns s/\\&/%26/g;
# spent 300ns making 1 call to CGI::CORE:subst
17 }
18
19112µs16µs if ("@words"=~/=/) {
# spent 6µs making 1 call to CGI::CORE:match
20 $query_string = join('&',@words);
21 } else {
22 $query_string = join('+',@words);
23 }
2413µs1600ns if ($query_string =~ /^(.*?)\?(.*)$/)
# spent 600ns making 1 call to CGI::CORE:match
25 {
26 $query_string = $2;
27 $subpath = $1;
28 }
2915µs return { 'query_string' => $query_string, 'subpath' => $subpath };
30}
31
32;